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I'he  increasing  use  of  movies  in  various  research  activities  at  NR  I  has  created  a  demand  lot 
subroutine  packages  which  make  and  edit  movie  files  which  contain  Strom herg-Carlson  commands. 
FXPAND  and  I  01  ISC  are  res|H‘etively,  a  worker  subroutine  and  a  simplified  FORTRAN  driver 
subroutine  which  allow  considerable  freedom  in  editing  movie  files.  Options  include  replicating 
or  deleting  arbitrary  frames  or  groups  of  frames,  inserting  blank  frames  between  any  frames  or 
group  of  frames  (to  give  borders  for  handmade  slides),  merging  separate  movie  tiles,  and  splitting 
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20.  ABSTRACT  (Continued) 

one  movie  into  several.  Details  of  these  routines  are  discussed  in  sufficient  depth  to  indicate 
where  changes  in  EXPAND  could  be  made  to  increase  the  editing  flexibility  (e.g.  the  addition 
or  changing  of  color  wheel  commands,  or  circumventing  the  limits  in  EXPAND  on  the  size 
of  input  and  output  files). 
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Expand:  An  Editing  Routine  For  Stromberg-Carlson  Movie  Files 

I.  INTRODUCTION 

A  rapidly  growing  number  of  research  activities  across  a  broad  range  of  scientific  fields  use 
computer-generated  movies.  Movies  provide  a  unique  type  of  physical  insight,  that  of  time- 
evolution,  into  problems  of  all  types,  and  invaluable  intuition  in  analyzing  transient  phenomena 
in,  for  example,  fluid  flows,  combustion  processes,  and  electromagnetic  and  quantum  mechani¬ 
cal  wave  packet  propagation.  In  addition,  movies  often  shed  light  on  purely  numerical  prob¬ 
lems.  They  are  unrivaled  in  efficiency  of  communication,  and  provide  their  makers  with  a  satis¬ 
fying.  elegant  format. 

Nevertheless,  movie-making  usually  burdens  computational  scientists  with  extra  debug¬ 
ging  requirements  and  larger  storage  requirements.  Even  when  the  data-generating  routines  are 
debugged,  a  movie  file  when  first  produced  will  seldom  represent  the  best  film  possible;  titles, 
summaries,  or  breaks  between  "scenes"  may  be  left  out  or  the  rate  of  time  evolution  (at  typical 
projector  speeds)  may  be  unacceptable.  Because  a  code  that  generates  movie  data  typically  is 
long  and  complex,  the  job  of  tailoring  it  to  allow  flexibility  in  movie  making  is  doubly  frustrat¬ 
ing  for  workers  desiring  a  quick  presentation  of  numerical  results. 

The  increasing  use  of  movies  in  research  and  the  need  to  simplify  movie-making  have 
created  a  strong  interest  at  NRL  in  specialized  subroutines  which  modify  Stromberg-Carlson 
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(SC)  command  movie  files.  (See  GRAFJT.  Ref.  1.)  This  report  describes  EXPAND,  a  routine 
for  editing  SC  files,  which  should  alleviate  several  of  the  problems  presently  found  in  movie¬ 
making. 

In  short,  EXPAND  permits  one  to  operate  on  the  file  exactly  as  if  it  were  a  reel  of  film 
(except  EXPAND  does  not  scan  backwards).  EXPAND  as  presently  written  has  options  for 
deleting  selected  frames  (singly  or  in  groups),  replicating  frames  so  as  to  slow  down  or  stop  the 
apparent  passage  of  time,  merging  or  splitting  movie  files,  and  inserting  blank  frames  between 
frames  with  data  to  facilitate  slide  preparation. 

A  set  of  examples  are  provided  showing  typical  jobs  using  EXPAND  in  the  last  section 
(V)  of  this  report.  The  preceding  sections  deal  with  the  action  of  EXPAND,  the  calling  se¬ 
quence,  the  JSL  (Job  Specification  Language),  and  desirable  changes  in  the  present  source  code 
to  add  options.  Additional  options  might  include  a  color-wheel-change  mode,  or  a  set  of  rou¬ 
tines  to  detect  and  segment  any  extremely  long  output  file  requests  by  scanning  the  EXPAND 
input  data  before  generating  the  output  file,  and  initiating  appropriate  FOT  (file  output  to  tape) 
commands. 

II.  GENERAL  DESCRIPTION  OF  EXPAND  AND  EDITSC 

EXPAND  requires  for  input  one  Stromberg-Carlson  (SC)  file,  which  must  be  named 
FTnlFOOl  where  nl  is  a  two-digit  positive  integer.  It  creates  a  second  file,  FTn2F001.  Other 
SC  files  will  be  denoted  similarly.  The  user  must  supply  nl,  n2,  etc.,  and  provide  appropriate 
FIT,  FOT  and  FD  commands  (see  Section  IV). 

Reading  input  files  from  disks  and  writing  output  files  to  disks  is  done  with  READFL  and 
WRITFL  (see  Ref.  2),  but  EXPAND  sets  up  all  necessary  parameters  to  use  READFL  and 
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WR1TFL.  Frames  are  counted  in  the  input  file  by  searching  each  input  block  for  an  SC 
"advance-frame"  command. 

For  most  applications  of  EXPAND,  the  desired  result  will  be  a  new  file  with  each  frame 
replicated  some  number  of  times.  (See  Fig.  la.)  This  has  the  effect  of  slowing  the  time  evolu¬ 
tion  by  the  repetition  factor,  but  also  note  that  one  can  stop  time  by  repeating  a  single  frame 
many  times.  Thus  EXPAND'  facilitates  the  use  of  special  still  frames,  which  need  not  be  gen¬ 
erated  during  the  initial  movie-making  run,  with  special  printed  matter,  annoted  figures,  or 
similar  information.  Note  that  input  color  movie  files  must  begin  each  frame  with  the  color 
wheel  on  ‘clear  .  Otherwise  replication  of  frames  will  sequence  the  colors  in  an  unpredictable 
manner. 

Figure  1  shows  the  effect  of  other  types  of  editing  options,  although  only  for  the  simplest 
types  of  applications.  A  more  general  output  film  could  be  made  with  EXPAND  in  which  part 
of  the  input  film  has  been  expanded,  another  part  deleted,  another  part  spaced  by  blank  frames, 
and  a  fourth  part  has  been  added  from  a  different  input  film,  for  example. 

Although  conceptually  simple,  the  logic  involved  in  a  general  input  and  output,  frame¬ 
counting  algorithm  is  complicated  by  the  variable  length  of  frames  and  the  block  nature  of  data 
transmission  to  and  from  tapes.  In  our  case  the  blocksize  is  2880  bytes  (720  single  precision 
words).  A  more  fundamental  source  of  difficulty  is  the  impracticably  of  bringing  an  entire 
movie  file  into  core.  Hence  we  discuss  EXPAND  in  this  section  as  if  it  operated  on  a  single 
reel  of  film,  without  regard  for  physical  data  flow. 

Nevertheless,  an  important  limit  which  results  from  this  block  nature  should  be  pointed 
out:  A  single  frame  in  FTnlFOOl  must  not  exceed  the  equivalent  of  7220  32  bit.  words.  A 
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(a)  INPUT: 
OUTPUT: 


1  2  3  4. 

97 

98  99  100 

1112  2 

.  .  |99 

100  100  100 

(b)  INPUT:  same  as  (a) 


OUTPUT: 


100 


(b  means  blank,  or  clear,  film.) 

(c)  INPUTS: 


1  2  3  4  .  .  98  99  100 


r 


2,|3'|4'|.  .  .  .l50,|Sr|52' 


OUTPUT: 


1  1 2 1 3  |  .  .  .  1 100 1  r  12'  1-  .  .  .  1 52'  I 


(d)  INPUT:  as  (a) 

OUTPUT:  I  1 12 1  •  •  - 1 8 1 9 1 1 0 1 2 1 122 


99 


100 


Figure  I.  A  number  of  editing  options  arc  available  using  EXPAND  Indicated 
schematically  in  (a)  is  simple  replication  of  frames,  while  (b)  shows  the  inser¬ 
tion  of  blanks,  (c)  shows  merging.  <d>  shows  deletion. 
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longer  set  of  commands  per  frame  causes  EXPAND  to  miscount  frames,  or  terminate  abnor¬ 
mally,  since  no  more  than  ten  blocks  are  allowed  from  FTnIFOOl  in  core  in  the  search  for  a 
new  advance  command.  For  most  applications,  this  limit  is  liberal.  It  may  be  raised  by  simple 
changes  in  the  source  code.  Other  limits  in  the  present  EXPAND  will  be  ennumerated  after  we 
have  described  the  calling  sequence  in  Section  III. 

Multiple  calls  to  EXPAND  or  ED1TSC  (see  Section  III)  may  occur  from  a  single  program. 
Because  the  same  output  file  (n2)  can  be  used  repeatedly  when  calling  EXPAND  (but  not 
EDITSC),  one  must  include  the  data  (MODE,  in  Section  III)  to  keep  it  open  or  to  close  it  after 
each  call.  EDITSC  automatically  generates  the  right  data  for  this,  by  reading  the  next  card  after 
its  present  instructions,  and  then  calling  EXPAND. 

The  penalty  for  using  EDITSC,  which  in  general  is  more  convenient  than  EXPAND,  is 
that  one  call  processes  a  continuous  segment  of  the  film  (physically,  the  SC  file),  and  each  frame 
of  this  segment  is  treated  identically.  With  EXPAND,  one  call  may  invoke  a  different  action  on 
each  frame  or  groups  of  contiguous  frames. 

Any  attempt  to  reread  sections  of  the  film  which  have  been  passed  will  fail  unless  the  in¬ 
put  file  II  is  first  closed.  This  occurs  only  if  another  call  to  EXPAND  (or  EDITSC)  references 
a  different  input  file.  In  other  words,  successive  calls  to  EXPAND  using  the  same  input  film 
cannot  change  the  chronological  order  on  the  output  film.  Having  closed  nl,  EXPAND  will  au¬ 
tomatically  begin  counting  frames  again,  on  the  next  call  using  nl,  calling  the  first  frame  one. 

For  clarity  we  note  here  that  when  successive  calls  to  EXPAND  or  EDITSC  ask  for  the 
same  input  file,  the  frames  on  each  call  are  counted  starting  with  number  one  as  the  next 
unprocessed  frame  after  the  previous  call.  As  the  next  section  will  show,  only  frame  advances 
are  counted  and  no  record  is  kept  of  the  absolute  frame  number  for  each  file. 
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III.  C  ALLING  SEQUENC  E 

This  section  defines  the  tetrameters  used  in  calling  EXPAND  and  EDITSC.  Remarks  on 
JSL  and  program  limits  arc  discussed  in  Section  IV.  We  describe  EDITSC'  first  since  it  is  some¬ 
what  simpler  than  EXPAND  and  will  suffice  for  many  editing  purposes  The  method  for  calling 
EXPAND,  which  allows  more  general  options,  is  very  similar  to  that  of  EDITSC  Both  are  on 
a  library  at  mxle  USERCAT/LIB/LCP/SHOCR I /EXPAND,  containing  source  (../EXPAND/ 
SOURCE)  and  object  (.../EXPAND/OBJECT)  modules  so  compilation  is  unnecessary,  and 
those  interested  may  obtain  source  listings. 

A  CALLING  EDITSC 

EDITSC  is  called  with  the  statement 

CALL  EDITSC. 

which  causes  Mu  a  cords  to  be  read  Each  card  is  assumed  to  contain  the  variables: 

Nl  N2  STF  ENF  REP 

under  the  format  213.  215,  13.  These  integer  variables  are  defined  as  follows: 

Nl  -  input  file  number  (in  FTnlFOOl), 

N2  -  output  file  number  (in  ETn2F00D, 

STF  ~  starting  frame  number  on  Nl  at  which  to  begin  copying  to  N2, 

ENF  -  ending  frame  number  on  Nl,  and 

REP  -  number  of  replicas  of  each  frame  of  Nl  to  be  copied  to  N2. 
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As  mentioned  above,  Nl  and  N2  must  be  positive  two-digit  integers,  that  is,  exceeding  d 
but  not  dd  There  is  one  exception:  one  may  terminate  the  set  of  cards  with  the  datum  Nl  - 
-1  and  any  other  values  (or  blanks)  for  the  remaining  variables  When  ED1TSC  finds  that  Nl 
^  1  on  any  card  except  the  first,  it  returns  control  to  the  calling  program  automatically,  after 
processing  the  preceeding  cards  If  it  finds  Nl  ^  d  on  the  first  card,  it  returns  control  and 
prints  an  error  message 

Briefly,  each  card  causes  ENE-STE  +  I  frames  to  be  copied,  each  REP  times,  from  Nl  to 
N2.  If  blank  frames  are  desired  between  each  frame  on  N2.  one  simply  makes  the  sign  of  REP 
negative.  For  the  data  cards  t”b"  denotes  blank): 

/bXQT 

b 1 0b20bbb I 0bbbd0b-3 
b-l 

/bEOJ 

ED1TSC  should  copy  81  frames  from  ET10F001  to  ET20E001  (see  Eig.  2(a)),  replicating  each 
frame  three  times,  and  inserting  blank  frames  beginning  with  frame  10  and  ending  with  frame 
d0.  (As  discussed  in  Section  IV.  the  user  must  provide  appropriate  FIT,  EOT.  and  ED  state¬ 
ments  for  all  files  used.) 

A  data  set  using  F.DITSC  to  break  a  movie  into  two  separate  movies,  one  at  half  the 
present  time  evolution  rate  and  a  second  with  blank  frames  between  each  frame  (see  Eig 
2(b)),  might  appear  as 
/bXQT 

bl 5b2 I bbbbl bb I 50bb2 
b 1 5b22bb 1 5 1 bb200b- 1 
b-l 

/bEOJ 
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(a)  INPUT 


FTI0F001: 

OUTPUT 

FT20F001. 
<b)  INPUT 


FTI5F00I : 
OUTPUTS 


FT2IF00I: 


FT22FOOI : 


b  151  b  j 


b  200  b 1 200 lb 


I  tgurc  :  Schematic  illustration  of  Ihc  action  caused  h»  data  cards  shown  in  the 
text  Note  the  extra  blank  frames  before  the  first  and  after  the  last  data  frame 
when  the  blank-frame  option  is  used 
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B  CALLING  EXPAND 


EXPAND  is  called  with  the  statement 


CALL  EXPAND  (Nl,  N2,  FRAME,  REPS,  NFRAMS,  MODE), 

which,  in  contrast  to  EDITSC,  does  not  cause  cards  to  be  read,  but  otherwise  performs  similar 
operations.  The  arguments,  all  of  type  integer,  are: 


Nl 

N2 

FRAME 


REPS 


v  NFRAMS 
MODE 


input  file  number  (in  FTnlFOOl), 
output  file  number  (in  FTn2F001), 

the  FORTRAN  name  of  a  one  dimensional  array  of  length  10,000, 

whose  i ill  element  is  the  number  of  the  i ill  frame 

in  FTnlfOOl  to  be  processed. 

the  FORTRAN  name  of  a  one  dimensional 

array  of  length  10,000,  whose  i ih  element  is  the  number  of 

replicas  of  the  if// frame  (FRAME  (I))  on  FTnlFOOl  to 

be  passed  to  FTn2F001, 

the  total  number  of  frames  to  be  processed  on  FTnlFOOl,  and 
an  integer  control  variable  with  the  effect: 


0,  close  N2  on  return,  no  blank  frames, 

1.  close  N2  on  return,  insert  blank  frames, 

2.  do  not  close  N2  on  return,  no  blank  frames, 
and 

3.  do  not  close  N2  on  return,  insert  blank  frames. 


I 

■» 
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The  same  limits  apply  to  Nl  and  N2  as  in  EDITSC  (9<N1,  N2  <  100).  The  urray  FRAME 
must  contain  an  increasing  scries. 

Note  that  EXPAND  allows  one  freedom  to  replicate  certain  frames  more  than  others. 
EDITSC  corresponds  to  a  subset  of  EXPAND  calls  with  all  elements  of  array  REP  equal.  EX¬ 
PAND  docs  not.  however,  allow  different  blank-frame  insertion  options  for  different  frames. 
The  generalization  of  MODE  to  allow  this  requires  straightforward  changes  in  the  code,  but  the 
benefits  to  be  gained  are  not  clear;  it  would  require  the  user's  code  to  generate  another  more 
complicated  array  before  calling  EXPAND,  whereas  the  same  effect  is  available  with  multiple 
calls. 


EXPAND  also  permits  arbitrary  frames  to  be  deleted,  through  the  FRAME  array.  In  ord¬ 
er  to  pick  up  only  odd  numbered  frames,  one  would  define  FRAME  before  calling  EXPAND  as 

FRAME  (i)  -  2i-l, 

for  example. 

IV.  JSI.  REMARKS  AND  PROGRAM  LIMITS 

This  section  contains  remarks  on  the  necessary  JSL  to  make  runs  with  EXPAND,  and  a 
list  of  the  present  restrictions  on  various  parameters  in  EXPAND.  A  number  of  the  following 
remarks  have  appeared  in  preceding  sections. 

A.  JSL  Remarks 

JSL  needed  to  run  EXPAND  includes  FD  (File  Declaration),  FIT  (File  Input  from  Tape). 
FOT  (File  Output  to  Tape),  and  MFR-MFRE  (Multiple  File  Request,  Multiple  File  Release) 
groups.  They  will  be  discussed  in  Section  V. 
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In  order  to  match  the  READFL  and  WRITFL  routines,  input  and  output  files  should  have 
the  following  characteristics: 

name:  FTnnFOOl,  (9<nn<100) 

FORG  (file  organization):  PS  (physical  sequential), 

BKSZ  (blocksize):  2880  (in  bytes), 

LREC  (record  length):  2880  (  in  bytes),  and 

RCFM  (record  format):  FB  (fixed  block). 

The  FORG,  BKSZ,  LREC  and  RCFM  parameters  are  all  initialized  properly  in  the  parameter 
files  used  by  WRITFL,  and  need  not  appear  on  an  FD  card  for  output  files.  Hence  a  typical  FD 
card  would  appear  as 

/bFDbFTlOFOOl,  BAND  =  10/15/5,  FORG  =  PS,  BKSZ  =  2880,; 
bbbLREC  =  2880,  DTYP  =  PAD,  RCFM  =  FB 

FIT'S  and  FOT's  move  the  movie  files  between  disks  and  tapes.  Stomberg-Carlson  com¬ 
mands  are  stored  on  tapes  with  characteristics 

DEN  (density)  =  556  (bits  per  inch), 

TRKS  (tracks)  —  7, 

RCTL  (recording  control)  =  C  (odd  parity  with  conversion  but  no  translation),  and 
LABL  (label)  —  l/NL  (unlabeled  tape). 


1 
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Typical  FIT  and  FOT  commands  might  read 

/bFITbFTnIFOOl ,  DEN  -  556.  TRKS  -  7.  RCTL  -  C.; 
bbbLABL  -  1/NL.  EFID  -  500619 

and 

/bFOT  FTn2F00l.  DEN  -  556,  TRKS  -  7.  RCTL  -  C.; 
bbbLABL  -  1/NL.  EFID  -  500414 

Here  nl  arc  n2  should  be  the  same  file  identifiers  appearing  in  calls  to  EDITSC  and  EXPAND. 

As  mentioned  earlier,  the  routines  EDITSC  and  EXPAND  arc  stored  in  a  library  at 
USERC AT/LIB/LCP/SHOCR I  /EXPAND.  A  library  card  in  the  linkage  step  should  appear,  as 


/bLNK 

LIBRARY  DUMMY 

where  DUMMY  is  an  arbitrary  access  name  previously  assigned  to  the  node  where  EXPAND  is 
located: 

/bASGbDUMMY,  USERCAT/LIB/LCP/SHOCR1/EXPAND.  USE-SHR 

For  jobs  with  several  files,  the  ASC  default  values  for  ADDMFM  may  he  too  small  In 
(his  case,  the  message 


.  *  .  ABEND  GMOI  .  .  . 
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will  appear  in  the  job  activity  file.  To  compute  the  required  ADDMEM  for  a  given  file,  use  the 
expression  (See  Reference  3): 

80  +  (number  of  words  in  LREC  rounded  up  to  a  multiple  of  8) 

+  (number  of  words  in  BKSZ  rounded  up  to  a  multiple  of  8). 

For  the  SC  files  commonly  used  with  LREC  -  2880  and  BKSZ  -  2880  (in  bytes),  this  formula 
gives  80  +  720  +  720  ™  1520  words  of  ADDMEM  per  file.  Additional  ADDMEM  is  indicat¬ 
ed  on  the  /XQT  card: 

/bXQTbADDMEM  -  7K 

B.  Program  Limits 

The  present  verion  of  EXPAND  (or  EDITSC  where  appropriate)  requires  that  : 

1)  file  designators  nl,  n2,  satisfy  9<nn<100; 

2)  each  frame  on  an  input  file  must  is  less  than  or  equal  to  7200  ASC  words  (this  is  ten 
2880-byte  blocks); 

3)  the  total  number  of  frames  to  be  copied  from  FTnlFOOl  (ENF-STF+ 1  for  EDITSC, 
NFRAMS  for  EXPAND)  does  not  exceed  10,000  (ignoring  repetitions); 

4)  The  maximum  number  of  replicas  of  any  frame  (absolute  value  of  REP  for  EDITSC  or 
of  REP  (1)  for  EXPAND)  is  99; 

5)  EDITSC  is  expected  to  read  no  more  than  500  data  cards,  including  the  flag  for  normal 
termination. 

6)  files  are  short  enough  to  fit  on  available  PAD  (currently  about  1500  BANDS). 
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V.  EXAMPLES 

Section  V.  A.  presents  examples  of  complete  decks  for  using  EXPAND  These  examples 
sers'e  only  as  guides,  not  tutorial  references,  for  setting  up  the  3S1  statements  They  show  typ¬ 
ical  methods  for  tile  handling,  and  assume  knowledge  of  ASC  JSL  MFR-MFRE  groups  arc 
also  illustrated.  In  Section  VB  we  shall  discuss  printed  output  briefly . 

A.  Examples  of  ASC  Jobs 

Since  EXPAND  requires  the  user  to  generate  editing-instruction  arrays,  but  docs  not 
affect  the  JSL  differently  from  EDITSC  in  any  way,  the  examples  only  show  calls  to  EDITSC 
Data  cards  therefore  arc  shown  after  the  XQT  statement,  which  would  not  he  required  if  EX¬ 
PAND  were  used.  Numbers  and  names  used  in  this  section  for  disk  space  reservation,  time 
limits,  file  sizes,  data,  path  names,  and  file  names  arc  purely  for  illustrative  purposes 

The  job  in  Figure  .1  makes  use  of  EDITSC  to  edit  two  input  movie  files  stored  on  the 
tapes  with  EFUVs  500835  and  500*101  and  merge  the  resulting  file  on  a  third  file  which  is 
stored  on  the  tape  with  EFID  ■*  500855.  (Users  must  have  registered  these  tapes  previously, 
and  they  must'  be  available  at  run  time  to  the  ASC.) 

The  results  of  this  deck  arc  that  frames  5-100  of  FTI0F00I  are  copied  each  four  times 
onto  FT20F00I,  followed  by  frames  1-35  from  FTI1F00I  which  are  copied  each  twice  and 
separated  by  blanks  as  indicated  by  Figure  4  The  -I  on  the  third  data  card  causes  normal  re¬ 
turn  to  the  dummy  calling  program 

Figure  5  presents  a  more  complicated  case  in  which  two  input  files  (not  on  tape)  are  ex¬ 
panded  by  a  factor  of  two  (halving  the  apparent  rate  of  time  evolution  for  a  given  projector 
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/  JOB  EXAMPLI.  7777777,  USERCD,  OPT  -  (C.R) 

/  LIMIT  BAND  -  100.  BAND  -  700/PAD.  MIN  -  l 

/  ASG  EDITLIB.  USERCAT/L1B/LCP/SHOCR I /EXPAND/OBJECT.  USE  -  SHR 
/  FD  FT06F001,  BAND  -  5/40/5 

/  FD  FT10F00I,  BAND  -  10/15/5,  FORG  -  PS.  BKSZ  -  2880.  LREC  -  2880,  DTYP  -  PAD, 
RCFM  -  FB 

/  FD  FTIIF00I,  BAND  -  10/15/5.  FORG  -  PS.  BKSZ  -  2880.  LREC  -  2880.  DTYP  -  PAD, 
RCFM  -  FB 

/  FD  FT20F00I,  BAND  -  20/30/5,  DTYP  -  PAD 

/  FIT  FTI0F00I.  DEN  -  556.  TRKS  -  7,  RCTL  -  C.  LABL  -  1/NL,  EFID  -  500835 
/  FIT  FTIIF00I.  DEN  -  556,  TRKS  -  7,  RCTL  -  C.  LABL  -  l/NL,  EFID  -  500901 
/  FTN 

THIS  IS  A  DUMMY  PROGRAM  TO  CALL  EXPAND,  VIA  EDITSC 

CALL  EDITSC 
STOP 
END 

/  LNK 

LIBRARY  EDITLIB 
/  FXQT  ADDMEM  -  7K 
b 1 0b20bbbbS  bb 1 00bb4 
b 1 1 b20bbbb 1 bbb35b-2 
b-1 

/  FOT  FT20F0OI,  DEN  -  556,  TRKS  -  7.  RCTL  -  C.  LABL  -  1/NL/ADD,  EFID  -  500855 
/  EOJ 
(7/9  card) 


Figure  '  An  ASC  job  illustrating  .1  simple  use  of  FDITSC  Nolc  "h"  means 
11  blank  on  Ihe  ilal.i  curds 


INPUTS 

FT10F001. 
FT  1 1 1- 00 1 : 
OUTPUT: 


112  3. 

1  looj 

101  .  .  . 

r  2'  y 

....  35 

36  ... 

FT20F001: 

Q  [s  }  5  ]  S  j  j  1 1)0  |  MX*  ]  MX)  ]  MX*  j  b  ]  I'  1  b  |  I'  ] 

i-r»  ih  i-’5  m 


f  ijufc  4  The  effect  of  the  deck  shown  in  Figure  .* 
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/  JOB  EXAMPl  2.  7777777,  USERCD.  OPT  -  (C.R> 

/  LIMIT  BAND  -  UK).  BAND  -  700/PAD.  MIN  -  2 
/  10  FTObFOOl,  BANO  -  5/40/5 

/  PO  WAMOVY.  LSI  RCAT/D74/B.UVOSI  RCD/SPLISII/STROMB 

/  10  FT  1 1  POO  I,  BANO  -  10/50/5.  FORG  -  PS.  BKS/  -  2880.  I  REC  -  2880.  ROM  -  IB.. 

OTYP  -  PAD 

/  ASG  FT  1 1 POOI.  WAVMOYY/NOJSO.  USF-SIIR 

/  PO  PTI2POOI.  BANO  -  10/50/5.  FORG-PS.  BKS/  -  2880.  LREC  -  2880.  RO  M  -  I  B.. 
OTYP  -  PAO 

/  ASG  FTI2F00I.  WAVMOVY/NOJ52,  USE  -  SHR 
/  10  ET20F00I.  BANO  -  50/250/50.  OTYP  -  PAO 

/  10  11  211  001.  BANO  -  50/250/50.  OTYP  -  PAO 

/  ASG  I  DITl  IB.OSERCAT/l  IB/LCP/SIIOCR1 /EXPAND/OBJECT.  USE  -  SHR 
/  FIN 
l' 

l  THIS  IS  ANOTHER  Dl'MM\  PROGRAM  TO  CAl  l  EXPAND 

C 

CALI  ED'TSC 

STOP 

ENO 

/  INK 

M  IBRXR5  EOll LIB 

/  i  xgr  CPTIME  -  12000.  AOOMEM  -  UK 
hllb20bbbblbb2»>5hb2 
bl  2b21hbbblbb2*>5bb2 
b-1 

/  MI  R  OUTPUT.  OEN  -  55t».  TRKS  -  7,  RCTL  -  C.  El  10  -  500001,  l  ABl  -  l/NI  /ADD 
/  POT  FT20P00I 

/  EOT  I  T  2 1 1' 00 1 

/  MERE 
/  EOJ 
(7/'»  card! 

I  inure  '  \n  \M  h'h  u«c  an  Ml  K  Ml  HI  ivm  io  oniimi  iv>.'  ctlnoil  lilcv  on 

laiv  oomi|imni\l\  Note  on  ihc  ilnla  iaixl>  >"  ilonnicx  Hank 


lb 
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speed),  placed  on  separate  files,  and  output  lo  a  tape  The  MFR-MFRF  pair  illustrates  how 
files  being  output  to  tape  (FOT'd)  may  be  stored  contiguously. 

A  third  example  shown  in  Fig  h.  works  with  six  input  files  initially  stored  as  contiguous, 
pairs  on  three  tape'  MFR-MFRF  pairs  and  used  in  this  example  lor  input  (FIT  commands)  as 
well  as  lor  output  (FOT  commands).  Output  tiles  are  copied  onto  a  single  tape 

B.  Remarks  on  Printed  Output 

FXPAND  and  FOIISC  have  a  number  ot  self-explanatory,  printed  output  comments. 
FDITSC  prints  each  card  it  reads  Two  cards  are  read  before  EXPAND  nta\  he  called  (to  find 
out  what  MODI  value  is  appropriate  by  knowing  in  advance  the  next  output  file  number)  FX¬ 
PAND  prints  out  the  names  ot  the  two  files  currently  being  used  for  input  and  output,  and  all 
other  input  data  from  FDITSC.  namely  NFRAMS.  MODF.  and  the  first  N  FRA  MS  elements  of 
the  arrays  FRAME  and  RI  PS  (See  Section  III  H) 

FXPAND  lists  every  frame  ot  interest  as  it  is  found,  together  with  the  number  of  calls  to 
WRITFl  required  to  copy  that  frame  from  BBl'l  (the  array  in  core  which  holds  each  frame)  to 
the  output  (disk)  file,  and  the  number  of  calls  made  to  WR1TFL. 

FDITSC  will  catch  and  report  improperly  formatted  input  cards  (e  g.  any  card  with  a  real 
number  in  the  first  thirteen  columns),  and  an  inconsistent  frame  request  with  the  starting 
frame  farther  along  the  film  than  the  ending  frame  (STF  >  I  NF,  see  Section  UFA). 

EXPAND  will  print  an  error  message,  different  in  each  case,  and  terminate  normally  if 
any  of  the  following  happen: 
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/ 

Jl'H 

1  \  AM  PI  V  77777'7.  1  SI  Rl  |'  OP1  -  U  .Rl 

/ 

1  1 M 11 

B  AM'  -  100.  H  AM'  -  700/P Al'.  MIN  -  7 

/ 

II' 

1  TOhFOOI.  BANI'  -  5/40/S 

/ 

FI' 

I  I  101001.  BANI'  -  10/ ISO/S,  Il'Rli  -  PS.  HRS/  -  2S80.I  KM 
imp  -  p ai' 

/ 

11' 

i  niFooi. 

/ 

H' 

1  1  121  001, 

/ 

H> 

11 1. 1100 1, 

/ 

II' 

FT  1 41001. 

/ 

II' 

1  1I5F00I, 

/ 

MIR 

FIRST.  I'l  N  -  55b,  IRKS  -  7,  ROT  -  l  .  1  AIM  -  l/NI  .. 
i  tin  -  s»ms  1 1 

/ 

1  IT 

FTIOFOUI.  1  AHI  -  t/Nl 

/ 

111 

1  1  HI  001.  1  AMI  -  2/Nl 

/ 

Ml  Rl 

/ 

All  R 

slll'NI'  I'IN  -  sip.  IRKS  -7.  Rill  -  f.l  ABl  -  l/Nl  .. 

II  It'  -  soom.i 

/ 

111 

1  1  moot.  1  ABI  -  l/NI 

/ 

1  IT 

1  1  141  001 ,  1  AIM  -  2/NI 

/ 

Ml  Rl 

t 

Ml  R 

THIRI'.  I'l  N  -  sip,  TRKS  -  7.  Ri  ll  -  l  I  AIM  -  l/NI  .. 

1  1  II'  -  5008 1 4 

/ 

FIT 

FT  1 2100 1.  1  AIM  -  l/NI 

/ 

III 

1  Tl  51001.  1  ABI  -  2/NI 

/ 

Ml  Rl 

/ 

ASli 

1  I'l II  III  1  SI  Rl  A l/l  lll/l  l  P/SIUH  Rl/I  VPANI'  llBJI  l  1 .  1  S| 

/ 

II' 

1  Till  1001.  B  ANI'  -  *0/250/50,  I'l  A  P  -  P  Al' 

/ 

FI' 

1  I  2IF00I. 

/ 

FI' 

FT  22IOOI. 

/ 

FTN 

C 

r  mis  \  iiiiri'  m  aima  ntm  nu  mi  i vpano 
c 

i  vi  i  innsi 

STOP 

INI' 

/  I  NK 

I  IHR  ARA  I  I'll!  ll< 

/  I  \yi  IP1IMI  -  12000.  Al'l'MI  M  -  I4K 

blt'h.'OhbhMhblO.'hM 

M  I  h  20bbbb  >bbb'  I  ht>4 

bl  Jb.''0hbhhlbbb.'8hb:' 

bl  .lhJlbbhblhbtO?bb? 

b  1 4b2 1  bhbh.lhbh*  I  hb  2 

bl'h.'Ibhbblhhh.'Shh: 

MlH*i’M*l*h.»l*l*t*h<h  I 
blObT'bhll'.'bblOJb  I 
M  Ib.’lhhhMbhhMh  I 
hi  JbJ.'bhh.'Obbb’Xh  I 
bHh22hbl('?hblO.'b  I 
bl4h.VbbhMbhb'lb  I 
hi  5h?.’M*h?Ohbh.,8b  I 
M 


/  MIR  Ol  ll’l  I  I'l  N  -  <Mv  IRRS  -  7.  Rill  -  t  .  |  III'  -  'IXOR.*,, 

I  ABI  -  l/NI  / M'l' 

/  I  Ol  FT  JOT  00 1 

/  i  or  ii  ’ll  ooi 

/  FOT  FT22FOOI 

/  Ml  HI 

/  Il'J 


.'SSO.  Rl  I  M 


SIIK 


1 7/1  card  I 

li»ttrc  h  An  AM  tob  illuslraltnp  Ihc  use  i*l  MIR  Ml  Rl  pains  tor  III  and 
M'l  Ihc  data  cards  select  single  frames  in  I  I  101 001 .  I  Tl  II 001.  I  II  M  OO  I . 
ami  I  1141001  lor  transfer  lo  FT22FO01  with  the  hlanVframc  option  Sin  ' 
multiple  calls  prmlucc  onl*  one  blank  between  each  data  frame,  not  two 
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(1)  NFR AMS  is  negative. 

(2)  N KRAVIS  is  greater  than  10,000. 

(3)  elements  in  array  I  R  AM!  are  not  an  increasing  series. 

(4)  READFL  has  an  abnormal  return,  or 

(5)  Inconsistent  pointers  to  arrays  are  generated  by  EXPAND  in  its  internal 
frame-counting  routine 

If  the  above  diagnostics  are  insufficient  for  debugging  purposes,  one  may  reset  the  logical  vari¬ 
able  DIAG  from  .FALSE,  to  .TRUE,  in  the  corresponding  data  initialization  line  in  EXPAND. 
This  produces  an  extremely  detailed  history  of  tile  designators  nl  and  n2  (which  are  obvious 
candidates  for  scrutiny  if  READFL  or  WRITEL  return  with  errors),  input  arrays  for  READFL 
and  WRITEL.  and  several  internal  counters  and  pointers. 
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